home *** CD-ROM | disk | FTP | other *** search
/ Hottest 6 / Hottest 6 (1996)(PDSoft)[!].iso / software / videoutils / a-g / ami2d / test / patch.rexx < prev    next >
OS/2 REXX Batch file  |  1978-11-24  |  2KB  |  98 lines
  1. /* patch test */
  2. options results
  3.  
  4. if ~show('ports', "AMI2D") then do
  5.     address command 'run ami2d:bin/ami2d'
  6.     do while ~show('ports', "AMI2D")
  7.     end
  8. end
  9.  
  10. address ami2d
  11.  
  12. call 'ami2d:rexx/pstress'
  13.  
  14. 'reset'
  15. 'iso(1,1000,.25)'
  16. 'coord(cart)'
  17. 'node(1,-1,-1)'
  18. 'node(2, 1,-1)'
  19. 'node(3, 1, 1)'
  20. 'node(4,-1, 1)'
  21. 'node(5, 0,-1)'
  22. 'node(6, 1, 0)'
  23. 'node(7, 0, 1)'
  24. 'node(8,-1, 0)'
  25. 'coord(polar)'
  26. 'node(9,.4,-150)'
  27. 'node(10,.4,-60)'
  28. 'node(11,.4,30)'
  29. 'node(12,.4,120)'
  30.  
  31. 'coord(cart)'
  32. 'info(node,-9)'
  33. parse var result nd ia xa ya
  34. 'info(node,-10)'
  35. parse var result nd ib xb yb
  36. xn = (xb+xa)/2
  37. yn = (yb+ya)/2
  38. 'node(13,'xn','yn')'
  39. 'info(node,-11)'
  40. parse var result nd ia xa ya
  41. xn = (xb+xa)/2
  42. yn = (yb+ya)/2
  43. 'node(14,'xn','yn')'
  44. 'info(node,-12)'
  45. parse var result nd ib xb yb
  46. xn = (xb+xa)/2
  47. yn = (yb+ya)/2
  48. 'node(15,'xn','yn')'
  49. 'info(node,-9)'
  50. parse var result nd ia xa ya
  51. xn = (xb+xa)/2
  52. yn = (yb+ya)/2
  53. 'node(16,'xn','yn')'
  54. 'info(node,-1)'
  55. parse var result nd ib xb yb
  56. xn = (xb+xa)/2
  57. yn = (yb+ya)/2
  58. 'node(17,'xn','yn')'
  59. 'info(node,-2)'
  60. parse var result nd ia xa ya
  61. 'info(node,-10)'
  62. parse var result nd ib xb yb
  63. xn = (xb+xa)/2
  64. yn = (yb+ya)/2
  65. 'node(18,'xn','yn')'
  66. 'info(node,-3)'
  67. parse var result nd ia xa ya
  68. 'info(node,-11)'
  69. parse var result nd ib xb yb
  70. xn = (xb+xa)/2
  71. yn = (yb+ya)/2
  72. 'node(19,'xn','yn')'
  73. 'info(node,-4)'
  74. parse var result nd ia xa ya
  75. 'info(node,-12)'
  76. parse var result nd ib xb yb
  77. xn = (xb+xa)/2
  78. yn = (yb+ya)/2
  79. 'node(20,'xn','yn')'
  80.  
  81. 'quad8(1,1,1,2,10,9,5,18,13,17)'
  82. 'quad8(2,1,2,3,11,10,6,19,14,18)'
  83. 'quad8(3,1,3,4,12,11,7,20,15,19)'
  84. 'quad8(4,1,4,1,9,12,8,17,16,20)'
  85. 'quad8(5,1,9,10,11,12,13,14,15,16)'
  86.  
  87. pi = 3.14159265359
  88. ang = 45*pi/180
  89. dx = -cos(ang) + sin(ang) + 1.0
  90. dy = -sin(ang) - cos(ang) + 1.0
  91. 'dispx(1,'dx')'
  92. 'dispy(1,'dy')'
  93. dx = cos(ang) - sin(ang) - 1.0
  94. dy = sin(ang) + cos(ang) - 1.0
  95. 'dispx(3,'dx')'
  96. 'dispy(3,'dy')'
  97. exit
  98.